5 :PRINT"[147]";:GOTO10:REM--START
6 :SAVE"@0:T&T IF-FNKN",8:RETURN:
9 :
10 :PRINT"IF-FUNKTION:"
11 :DEFFNI(A)=43256+67*-(A<>.)
12 :A=.:GOSUB15:A=1:GOSUB15:LIST11-16
13 :
15 :PRINTA":"1;:SYSFNI(A=1):PRINT2;
16 :PRINT4:RETURN: